Public Class Form_ACDelivery

    Private frm_ac As Form_ACDelivery


    Private Sub Form_ACDelivery_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uc As Frm_CSEveryRemark = New Frm_CSEveryRemark()
        Me.Panel1.Controls.Add(uc)
        Me.Panel1.CreateControl()
        uc.Dock = DockStyle.Fill
        uc.FindBool = False
        Me.Refresh()
    End Sub

    Public Function CreateInstance() As Form_ACDelivery
        If frm_ac Is Nothing OrElse frm_ac.IsDisposed Then
            frm_ac = New Form_ACDelivery()
        End If
        Return frm_ac
    End Function
End Class